Option Explicit
Sub P_Sample020()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\Tmp\*"		'NƧ
    myFso.DeleteFolder myName, Force:=True
    'ϥMaskr
    'myFso.GetFolder(myName).Delete myName, Force:=True
    Set myFso = Nothing					'
End Sub
